home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1989.ZIP / QQREAD.PRG < prev    next >
Text File  |  1990-05-19  |  1KB  |  44 lines
  1. * QQREAD.PRG - read only substitute for DO QQUERY
  2. RELEASE qqname,qqdesc,qquery
  3. PRIVATE ALL LIKE qq*
  4. PUBLIC qqname,qqdesc,qquery
  5. qqtitle=REPL(CHR(178),31)+' Q Q U E R Y (tm) '+REPL(CHR(178),31)
  6. qqalias=ALIAS()
  7. SELECT 0   && surround with ON ERROR statements
  8. USE &qqalias..qdb INDEX &qqalias..qdx ALIAS qquery  && test for EOF()
  9. SET MESSAGE TO 23
  10. DO WHILE .T.
  11.    SET MESSAGE TO 'Point to a query, then strike Escape'
  12.    BROWSE NOMODIFY FIELDS qdname,qdescript,qdledit
  13.    SET MESSAGE TO ''
  14.    @  0, 0 GET qqtitle
  15.    @  4, 0  SAY "Condition"
  16.    @  5, 0  GET  qdquery
  17.    @ 16, 0  TO  19,79
  18.    @ 17, 2  SAY "Name      Description"
  19.    @ 17,69  SAY "Last Edit"
  20.    @ 18, 2  GET  qdname
  21.    @ 18,12  GET  qdescript
  22.    @ 18,69  GET  qdledit
  23.    CLEAR GETS
  24.    qqchoice=1
  25.    @ 24, 0 PROMPT 'Use'    MESSAGE 'Use this query'
  26.    @ 24,10 PROMPT 'List'   MESSAGE 'Choose a different query'
  27.    @ 24,20 PROMPT 'Cancel' MESSAGE 'Cancel the report for now'
  28.    MENU TO qqchoice
  29.    DO CASE
  30.       CASE qqchoice=1
  31.          EXIT
  32.       CASE qqchoice=3
  33.          GOTO BOTTOM
  34.          SKIP  && point to a nul record, EOF()
  35.          EXIT
  36.    ENDCASE
  37. ENDDO
  38. qqname=TRIM(qdname)
  39. qqdesc=TRIM(qdescript)
  40. qquery=TRIM(qdquery)
  41. USE
  42. SELECT &qqalias
  43. RETURN
  44.